home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / msnewout.arc / MSG5.TXT < prev    next >
Encoding:
Text File  |  1986-09-14  |  1.4 KB  |  25 lines
  1. Well success at last since no one had a solution to revectoring
  2. output for M S Pascal I would like to share my first temporary
  3. solution to the problem. M S Pascal uses Xenix compatible function
  4. calls. Once I read that little tid bit of information I thought
  5. of this if it uses these compatible calls it must write to the
  6. screen using INTR 21H function 40H device number 1. Since INTR 21H
  7. has to use interrupt vectors that gives you a reference point to
  8. intercept output data. Four procedures are necessary three assembly
  9. language one Pascal. First assembly language routine resets the
  10. INTR 21H vector to the second assembly INTR procedure. The interrupt
  11. procedure checks if the function call is 40H if not jump long to
  12. the old vector. if it was function 40H then check if the device
  13. number is 1 the screen if not jump long to old vector. After it
  14. finds function 40H device 1 it sets up parameters to call the one
  15. Pascal public procedure. Upon return from the Pascal procedure
  16. it executes an IRET from the INTR 21H. The last assembly procedure
  17. just restores the old interrupt vector back. This documentation
  18. along with necessary source and object code will be contained
  19. in the upload file MSNEWOUT.ARC
  20. Thanks to the people who have responded to my pleas for help
  21. in the past. If and when I receive a graceful solution from
  22. Microsoft I will up load that answer also for anyone who is
  23. interested. If you have any questions send mail to
  24. Arno Karner
  25.